#include <iostream>
#include<vector>
#include<string>
using namespace std;

int main(){
    setlocale(LC_ALL, "");
    string s, w, ma_w;
    getline(cin, s);
    vector<string>vec;
    s += ' ';
    for (int i = 0; i <= s.size(); i++){
        if (s[i] != ' '){
        w += s[i];
        }
        else{
            vec.push_back(w);
            w = "";
        }
    }
    int kw = 0;
    for (int i = 0; i <= vec.size(); i++){
        kw += 1;
    }

    int kd = 0;
    for (int i = 0; i < vec.size(); i++){
        for (int j = 0; j < vec[i].size(); j++)
            if (vec[i][j] == '-'){
             kd += 1;
            }
    }

    int ks3 = 0;
    int k3 = 0;
    for (int i = 0; i < vec.size(); i++){
        for (int j = 0; j < vec[i].size(); j++)
            k3 += 1;
        if(k3 <= 3){
            ks3 += 1;
        }
        k3 = 0;
    }

    int bk = 0;
    for (int i = 0; i < vec.size(); i++){
        if ('А' >= vec[i][1] >= 'Я'){
            bk += 1;
        }
    }


    int wm = 0;
    for (int i = 0; i < vec.size(); i++){
        if (vec[i].size() > wm){
            wm = vec[i].size();
            ma_w = vec[i];
        }
    }
    
    int kl = 0;
    for (int i = 0; i < vec.size(); i++){
        for (int j = 0; j < vec[i].size(); j++)
            if ('A' <= vec[i][j] <= 'z'){
             kl += 1;
             break;
            }
    }
    
    if (vec.size() + 1 == 1){
        wcout << "Мало данных для анализа" << endl;
    }
    else {
        wcout << "Кол-во слов: " << kw - 1 << endl;
        wcout << "Кол-во слов с заглавной кириллической буквы: " << bk << endl;
        wcout << "Кол-во слов содержащих латинский символ: " << kl << endl;
        wcout << "Кол-во слов не превышающих 3 символа: " << ks3 << endl;
        wcout << "Кол-во слов в составе которых имеется дефис: " << kd << endl;
        wcout << endl;
        wcout << "Самое длинное слово: " << ma_w << endl;
        wcout << "Длина слова: " << wm << endl;
    }
}
